﻿Public Class debug

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (frmSplash.httplog.isAuthenticated() = False) Then
            MsgBox("ERROR")
        End If
        Dim temp = frmSplash.httplog.getClasses()
        Dim i = 0
        Dim f = 0
        While (temp.Item(i).getassignmentlist.Count > i)
            While (temp.Item(i).getassignmentlist.Count > f)

                TextBox1.Text = TextBox1.Text & temp.Item(i).getid() & " "
                TextBox1.Text = TextBox1.Text & temp.Item(i).getname()
                TextBox1.Text = TextBox1.Text & Chr(13) & Chr(10)
                i += 1
            End While
        End While
        
    End Sub

    Private Sub debug_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub frmMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        End
    End Sub


End Class